﻿Public Class PedidoNegocio

    Public Function listar() As Collection
        Dim dao As New PedidoDAO
        Return dao.listar()
    End Function

    Public Function insertar(ByVal Usuario_idUsuario As Integer, ByVal fecha As String,
                             ByVal estado As Char, ByVal total As String) As Pedido

        Dim modelo As New Pedido()
        modelo.Usuario_idUsuario = Usuario_idUsuario
        modelo.fecha = fecha
        modelo.estado = estado
        modelo.total = total

        Dim dao As New PedidoDAO
        Return dao.insertar(modelo)
    End Function

    Public Sub actualizar(ByVal idPedido As Integer, ByVal fecha As String, ByVal estado As Char, ByVal total As String)

        Dim modelo As New Pedido()
        modelo.idPedido = idPedido
        modelo.fecha = fecha
        modelo.estado = estado
        modelo.total = total


        Dim dao As New PedidoDAO
        dao.actualizar(modelo)
    End Sub

    Public Sub eliminar(ByVal idPedido As Integer)
        Dim dao As New PedidoDAO
        dao.eliminar(idPedido)
    End Sub

    Public Function obtener(ByVal idPedido As Integer) As Pedido
        Dim dao As New PedidoDAO
        Return dao.obtener(idPedido)
    End Function

    Public Function buscarPorFecha(ByVal fecha As String) As Collection
        Dim dao As New PedidoDAO
        Return dao.buscarPorFecha(fecha)
    End Function

End Class
